home *** CD-ROM | disk | FTP | other *** search
/ ZAM 3 / ZAM 3.adf / Source / 3D-WINDOW-SOURCE.AMOS / 3D-WINDOW-SOURCE.amosSourceCode
Encoding:
AMOS Source Code  |  1990-12-11  |  1.2 KB  |  40 lines
  1. Global STRT,TEND
  2. Shared STRT,TEND
  3.  
  4. Screen Open 0,640,200,8,Hires
  5. Flash Off : Curs Off 
  6. Colour 1,$FFF : Colour 2,$999 : Colour 3,$444 : Colour 4,$F00
  7. Colour 5,$FF0 : Colour 6,$D : Colour 7,$D0
  8. Cls 2
  9.  
  10. WOPEN[1,16,2,76,2,4,5,"",1]
  11. Centre At(,0)+"THIS 3D-WINDOW ROUTINE WAS CODED BY  *HAWK*  IN JANUARY 1993!"
  12. Centre At(,1)+"FEEL FREE TO USE THIS IN YOR OWN PRODUCTIONS!"
  13.  
  14. Bell : Wait Key 
  15. WCLOSE[1,1]
  16.  
  17. Procedure WOPEN[WIN,XPOSSTART,YPOSSTART,WIDTH,HEIGHT,PAPCUL,PCUL,TXT$,REPEET]
  18.    For LOP=0 To REPEET-1
  19.       Wind Open WIN+LOP,XPOSSTART,YPOSSTART+(LOP*10),WIDTH,HEIGHT
  20.       Paper PAPCUL : Pen PCUL
  21.       Clw 
  22.       Ink 3
  23.       Draw XPOSSTART-1,(YPOSSTART-1)+(LOP*10) To XPOSSTART+(WIDTH*8)+1,(YPOSSTART-1)+(LOP*10)
  24.       Draw XPOSSTART-1,YPOSSTART+(LOP*10) To XPOSSTART-1,YPOSSTART+(HEIGHT*8)+(LOP*10)
  25.       Ink 1
  26.       Draw XPOSSTART,YPOSSTART+(HEIGHT*8)+(LOP*10) To XPOSSTART+(WIDTH*8)+1,YPOSSTART+(HEIGHT*8)+(LOP*10)
  27.       Draw XPOSSTART+1+(WIDTH*8),YPOSSTART+(LOP*10) To XPOSSTART+1+(WIDTH*8),YPOSSTART+(HEIGHT*8)+(LOP*10)
  28.       Centre At(,0)+TXT$
  29.       Home 
  30.    Next LOP
  31.    Curs Off 
  32. End Proc
  33. Procedure WCLOSE[STRT,TEND]
  34.    Shared STRT,TEND
  35.    For LOP=STRT To TEND
  36.       Window LOP
  37.       Paper 2 : Clw 
  38.       Wind Close 
  39.    Next LOP
  40. End Proc